home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_410 / vlt / rexx / extracttest.rexx < prev    next >
OS/2 REXX Batch file  |  1992-05-06  |  2KB  |  74 lines
  1. /** ExtractTest.rexx
  2. *
  3. *   Extract all fields from VLT
  4. *
  5. **/
  6. address VLT
  7. 'extract'
  8. /*
  9. *   Loop over all the fields
  10. */
  11. do i = 1 to VLT.fields
  12.    a = VLT.fields.i
  13. /*
  14. *   Handle all fields with subfields in a special way
  15. */
  16.    if   a = "COLOR" then do
  17.       do j = 0 to VLT.color - 1
  18.          a = VLT.fields.i"."j
  19.          say overlay(a, copies(" ", 30)) " = " VLT.a
  20.       end
  21.    end
  22.    else if a = "FIELDS" then do
  23.       say overlay(a, copies(" ", 30)) " = this list"
  24.    end
  25.    else if a = "FUNCTIONKEY" then do
  26.       do j = 1 to VLT.functionkey
  27.          a = VLT.fields.i"."j
  28.          say overlay(a, copies(" ", 30)) " = " VLT.a
  29.       end
  30.    end
  31.    else if a = "FUNCTIONKEYALT" then do
  32.       do j = 1 to VLT.functionkeyalt
  33.          a = VLT.fields.i"."j
  34.          say overlay(a, copies(" ", 30)) " = " VLT.a
  35.       end
  36.    end
  37.    else if a = "FUNCTIONKEYCTRL" then do
  38.       do j = 1 to VLT.functionkeyctrl
  39.          a = VLT.fields.i"."j
  40.          say overlay(a, copies(" ", 30)) " = " VLT.a
  41.       end
  42.    end
  43.    else if a = "FUNCTIONKEYSHIFT" then do
  44.       do j = 1 to VLT.functionkeyshift
  45.          a = VLT.fields.i"."j
  46.          say overlay(a, copies(" ", 30)) " = " VLT.a
  47.       end
  48.    end
  49.    else if a = "FUNCTIONSCREENGADGET" then do
  50.       do j = 1 to VLT.functionscreengadget
  51.          a = VLT.fields.i"."j
  52.          say overlay(a, copies(" ", 30)) " = " VLT.a
  53.       end
  54.    end
  55.    else if a = "FUNCTIONUSERMENU" then do
  56.       do j = 1 to VLT.functionusermenu
  57.          a = VLT.fields.i"."j
  58.          say overlay(a, copies(" ", 30)) " = " VLT.a
  59.       end
  60.    end
  61.    else if a = "SCHEDULESPENDING" then do
  62.       do j = 1 to VLT.schedulespending
  63.          a = VLT.fields.i"."j
  64.          say overlay(a, copies(" ", 30)) " = " VLT.a
  65.       end
  66.    end
  67. /*
  68. *   All other fields
  69. */
  70.    else do
  71.       say overlay(a, copies(" ", 30)) " = " VLT.a
  72.    end
  73. end
  74.